APDL Eductation Resources/APDL Eductation Resources.iso/programs/graphics/turtle_2/Procedures/TRACKS

Text File | 1991-08-04 | 2.5 KB | 230 lines

MOVE1A
PEN UP
BACKWARDS 9*NM
LEFT 90
FORWARD 13*NM
RIGHT 90
PEN DOWN
END

MOVE1B
PEN UP
BACKWARDS 5*NM
LEFT 90
FORWARD 9*NM
RIGHT 90
PEN DOWN
END

TROUT1
FORWARD 18*NM
RIGHT 90
FORWARD 10*NM
RIGHT 90
FORWARD 8*NM
LEFT 90
FORWARD 16*NM
RIGHT 90
FORWARD 10*NM
RIGHT 90
FORWARD 26*NM
END

TRIN1
FORWARD 10*NM
RIGHT 90
FORWARD 2*NM
RIGHT 90
FORWARD 10*NM
RIGHT 90
FORWARD 2*NM
RIGHT 90
FORWARD 2*NM
RIGHT 90
FORWARD 18*NM
RIGHT 90
FORWARD 2*NM
RIGHT 90
FORWARD 18*NM
END

LINE1
PEN DOWN
REPEAT 2*NM
FORWARD 0
PEN UP
FORWARD 2
PEN DOWN
END REPEAT
PEN UP
BACKWARDS 2*NM
PEN DOWN
RIGHT 90
END

TRACK1
CLEAR
DISPLAY
MOVE1A
COLOUR 1
TROUT1
HOME CURSOR
MOVE1B
COLOUR 9
FILL
TRIN1
END FILL
RIGHT 90
COLOUR 1
TRIN1
COLOUR 9
LINE1
COLOUR 4
DISPLAY
END

TRACK2
CLEAR
DISPLAY
COLOUR 1
PEN UP
BACKWARDS 80
LEFT 90
FORWARD 140
RIGHT 90
PEN DOWN
FORWARD 50
RIGHT 40
FORWARD 140
RIGHT 70
FORWARD 30
RIGHT 70
FORWARD 80
LEFT 60
FORWARD 70
LEFT 80
FORWARD 50
LEFT 40
FORWARD 50
RIGHT 50
FORWARD 60
RIGHT 40
FORWARD 20
HOME CURSOR
PEN UP
BACKWARDS 80
LEFT 90
FORWARD 110
RIGHT 90
PEN DOWN
FORWARD 50
RIGHT 40
FORWARD 100
RIGHT 140
FORWARD 80
LEFT 60
FORWARD 90
LEFT 80
FORWARD 90
LEFT 40
FORWARD 50
RIGHT 50
FORWARD 40
RIGHT 40
FORWARD 16
HOME CURSOR
PEN UP
BACKWARDS 80
LEFT 90
FORWARD 125
RIGHT 90
PEN DOWN
COLOUR 3
DISPLAY
END

FOR
FORWARD NM
END

BAC
BACKWARDS NM
END

RIG
RIGHT 15
END

LEF
LEFT 15
END

INFO
CLEAR
DISPLAY
COLOUR 12
PEN UP
LEFT 90
FORWARD 100
RIGHT 90
FORWARD 70
WRITE TRACKS
BACKWARDS 15
WRITE See if you can drive the turtle around the tracks
BACKWARDS 10
WRITE without crashing.
BACKWARDS 15
WRITE Try to use as few commands as possible.
BACKWARDS 15
WRITE Keep a clear record of all your movements.
MORE1
END

MORE1
BACKWARDS 20
WRITE To see the first track type TRACK1 <return>.
BACKWARDS 15
WRITE Other tracks are: TRACK2
BACKWARDS 20
WRITE Type IDEAS <return> for more ideas.
BACKWARDS 20
DISPLAY
END

IDEAS
CLEAR
DISPLAY
COLOUR 6
PEN UP
LEFT 90
FORWARD 100
RIGHT 90
FORWARD 70
WRITE IDEAS
BACKWARDS 20
WRITE Try to travel the shortest distance around
BACKWARDS 10
WRITE the tracks.
BACKWARDS 20
WRITE Travel from finish to start or walk backwards
BACKWARDS 10
WRITE around the tracks.
BACKWARDS 10
MORE2
END

MORE2
WRITE Could you write down the commands for these
BACKWARDS 10
WRITE journeys BEFORE you do them if you have
BACKWARDS 10
WRITE already travelled the 'correct' way?
BACKWARDS 20
WRITE Create a track of your own.
BACKWARDS 10
WRITE You could use curves ... perhaps a figure 8?
BACKWARDS 20
DISPLAY
END